home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / periodic.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  10KB  |  234 lines
  1. 0 REM ATOMIC TABLE INFORMER
  2. 1 REM VERSION 1.0 BY LENOLONEL(null)OM
  3. 3 DIMPT$(103,10)
  4. 5 POKE53280,0:POKE53281,0:POKE646,3:PRINTCHR$(8)CHR$(14)
  5. 10 PRINT"[147][208]ERIODIC [212]ABLE"
  6. 15 PRINT"[211]ETTING UP TABLE DATA IN MEMORY..."
  7. 20 GOSUB 4960
  8. 25 PRINT"                                        "
  9. 30 PRINT"[208]LEASE CHOOSE A FUNCTION..."
  10. 35 PRINT:PRINT"[158][F1][159] [211]EARCH BY [193]TOMIC [206]UMBER"
  11. 40 PRINT:PRINT"[158][F3][159] [211]EARCH BY [211]YMBOL"
  12. 41 PRINT:PRINT"[158][F7][159] [209]UIT"
  13. 45 GETZ$:IFZ$<>"[133]"ANDZ$<>"[134]"ANDZ$<>"[136]"THEN45
  14. 50 IFZ$="[133]"THENGOSUB3000
  15. 55 IFZ$="[134]"THENGOSUB4000
  16. 57 IF Z$="[136]"THENGOTO 10000
  17. 60 GOTO 25
  18. 3000 REM SEARCH BY ATOMIC NUMBER
  19. 3005 PRINT"[147][208]ERIODIC [212]ABLE"
  20. 3010 INPUT"[208]LEASE ENTER [193]TOMIC [206]UMBER";AN
  21. 3015 IFAN<1ORAN>103THENPRINT"[206]O SUCH ELEMENT!!!":FORZQ=1TO2000:NEXTZQ:GOTO 3000
  22. 3016 POKE53265,PEEK(53265)AND239:POKE56325,255
  23. 3018 X=AN
  24. 3020 PRINT"[147]"TAB(13)"[208][197][210][201][207][196][201][195] [212][193][194][204][197]"
  25. 3022 PRINT:PRINT"[193]TOMIC [206]UMBER:[158] "X;TAB(20)PT$(0,0)" "PT$(X,0)
  26. 3024 PRINT:PRINTPT$(0,1)" "PT$(X,1):PRINT:PRINTPT$(0,2)" "PT$(X,2)
  27. 3025 PRINT:PRINT:PRINTPT$(0,3)" "PT$(X,3)
  28. 3027 PRINT:PRINTPT$(0,4)" "PT$(X,4);TAB(20)PT$(0,5)" "PT$(X,5)
  29. 3030 PRINT"":PRINT:PRINTPT$(0,6)" "PT$(X,6):PRINTPT$(0,7)" "PT$(X,7)
  30. 3035 PRINT:PRINTPT$(0,8)" "PT$(X,8):PRINTPT$(0,9)" "PT$(X,9):PRINTPT$(0,10)" "PT$(X,10)
  31. 3037 PRINT
  32. 3040 PRINT"[159][208]RESS [158][[193]][159] TO FIND ANOTHER ELEMENT OR [158][[205]][159] TO RETURN TO THE MAIN MENU
  33. 3043 [151]53265,[194](53265)[176]16:[151]56325,46
  34. 3045 [161]Z$:[139]Z$[178]"A"[176]Z$[178]"M"[167]3055
  35. 3050 [137] 3045
  36. 3055 [139]Z$[178]"A"[167]3000
  37. 3060 [139]Z$[178]"M"[167][153]"LOAD":[142]
  38. 4000 [143] SEARCH BY SYMBOL
  39. 4005 [153]"LOAD(null)ERIODIC (null)ABLE"
  40. 4010 [153]:[133]"(null)LEASE ENTER ATNTOMIC (null)YMBOL";AS$
  41. 4015 [139][195](AS$)[177]2[167][153]"(null)YMBOLS ARE 2 LETTERS LONG!":[129]ZQ[178]1[164]2000:[130]ZQ:[137]4000
  42. 4020 [139][198]([200](AS$,1))[179]193[176][198]([200](AS$,1))[177]218[167]9000
  43. 4023 [139][195](AS$)[178]1[167]4040
  44. 4025 [139][198]([201](AS$,1))[179]65[176][198]([201](AS$,1))[177]90[167]9005
  45. 4035 [151]53265,[194](53265)[175]239:[151]56325,255
  46. 4040 [129]X[178]1[164]103
  47. 4045 [139]AS$[178]PT$(X,0)[167]4080
  48. 4050 [130]X
  49. 4055 [153]"VALLEMENT DOES NOT EXIST!"
  50. 4060 [153]"(null)LEASE PRESS SYS[ATN]OPEN TO TRY AGAIN, OR PRESS SYS[(null)]OPEN TO RETURN TO THE MENU."
  51. 4063 [151]53265,[194](53265)[176]16:[151]56325,46
  52. 4065 [161]Z$:[139]Z$[179][177]"A"[175]Z$[179][177]"M"[167]4065
  53. 4070 [139]Z$[178]"A"[167]4000
  54. 4075 [139]Z$[178]"M"[167][153]"LOAD":[142]
  55. 4080 [153]"LOAD"[163]13)"(null)VAL(null)RIGHT$(null)STR$RIGHT$LEN (null)ATNPEEK(null)VAL"
  56. 4085 [153]:[153]"ATNTOMIC (null)UMBER:SYS "X;[163]20)PT$(0,0)" "PT$(X,0)
  57. 4095 [153]:[153]PT$(0,1)" "PT$(X,1):[153]:[153]PT$(0,2)" "PT$(X,2)
  58. 4200 [153]:[153]:[153]PT$(0,3)" "PT$(X,3)
  59. 4205 [153]:[153]PT$(0,4)" "PT$(X,4);[163]20)PT$(0,5)" "PT$(X,5)
  60. 4210 [153]"":[153]:[153]PT$(0,6)" "PT$(X,6):[153]PT$(0,7)" "PT$(X,7)
  61. 4215 [153]:[153]PT$(0,8)" "PT$(X,8):[153]PT$(0,9)" "PT$(X,9):[153]PT$(0,10)" "PT$(X,10)
  62. 4217 [153]
  63. 4220 [153]"OPEN(null)LEASE PRESS SYS[ATN]OPEN TO TRY AGAIN, OR PRESS SYS[(null)]OPEN TO RETURN TO THE MENU."
  64. 4223 [151]53265,[194](53265)[176]16:[151]56325,46
  65. 4225 [161]Z$:[139]Z$[179][177]"A"[175]Z$[179][177]"M"[167]4225
  66. 4230 [139]Z$[178]"A"[167]4000
  67. 4235 [139]Z$[178]"M"[167][153]"LOAD":[142]
  68. 4959 [128]
  69. 4960 [143] READ HEADER
  70. 4965 [129]L[178]0[164]10:[135]PT$(0,L):[130]L
  71. 4970 [131]"OPEN(null)YMBOL:SYS","OPENATNTOMIC (null)ASS:SYS","OPEN(null)ELECTED (null)XIDATION (null)TATES:SYS"
  72. 4975 [131]"OPENETAB( LENONFIGURATION:SYS","OPEN(null)ERIOD:SYS","OPENCHR$ROUP:SYS"
  73. 4980 [131]"OPENASCIRST RIGHT$ONIZATION VALNERGY:SYS","OPENVALLECTRONEGATIVITY:SYS"
  74. 4985 [131]"OPENLENOVALENT ATNTOMIC (null)ADIUS:SYS","OPENATNTOMIC (null)ADIUS IN (null)ETALS:SYS"
  75. 4990 [131]"OPEN(null)AN DER (null)AALS (null)ADIUS:SYS"
  76. 4995 [151]53265,[194](53265)[175]239:[151]56325,255
  77. 5000 [143] SET UP PERIODIC TABLE
  78. 5001 [129]A[178]0[164]10
  79. 5002 [129]B[178]1[164]103
  80. 5003 PT$(B,A)[178]"-"
  81. 5004 [130]B:[130]A
  82. 5010 [143] READ SYMBOL
  83. 5011 [129]XX[178]1[164]103:[135]PT$(XX,0):[130]XX
  84. 5015 [131]"LEFT$","LEFT$E","(null)I","PEEKE","PEEK","LEN","(null)","(null)","ASC","(null)E","(null)A","(null)G","ATNL","(null)I","(null)","(null)"
  85. 5020 [131]"LENL","ATNR","(null)","LENA","(null)C","(null)I","(null)","LENR","(null)N","ASCE","LENO","(null)I","LENU","(null)N"
  86. 5025 [131]"CHR$A","CHR$E","ATNS","(null)E","PEEKR","(null)R","(null)B","(null)R","(null)","(null)R","(null)B","(null)O","(null)C","(null)U"
  87. 5030 [131]"(null)H","(null)D","ATNG","LEND","RIGHT$N","(null)N","(null)B","(null)E","RIGHT$","(null)E","LENS","PEEKA","(null)A","LENE"
  88. 5035 [131]"(null)R","(null)D","(null)M","(null)M","VALU","CHR$D","(null)B","STR$Y","LEFT$O","VALR","(null)M","(null)B","(null)U","LEFT$F"
  89. 5040 [131]"(null)A","(null)","(null)E","(null)S","RIGHT$R","(null)T","ATNU","LEFT$G","(null)L","(null)B","PEEKI","(null)O","ATNT","(null)N"
  90. 5045 [131]"ASCR","(null)A","ATNC","(null)H","(null)A","(null)","(null)P","(null)U","ATNM","LENM","PEEKK","LENF","VALS","ASCM"
  91. 5050 [131]"(null)D","(null)O","(null)R"
  92. 5055 [143] READ ATOMIC MASS
  93. 5060 [129]XX[178]1[164]103:[135]PT$(XX,1):[130]XX
  94. 5065 [131]1.00797,4.0026,6.939,9.0122,10.811,12.01115,14.0067,15.9994,18.9984
  95. 5070 [131]20.183,22.9898,24.312,26.9815,28.086,30.9738,32.064,35.453,39.948,39.102
  96. 5075 [131]40.08,44.956,47.9,50.942,51.996,54.938,55.847,58.9332,58.71,63.54,65.37
  97. 5080 [131]69.72,72.59,74.9216,78.96,79.909,83.8,85.47,87.62,88.905,91.22,92.906
  98. 5085 [131]95.94,98.9062,101.07,102.905,106.4,107.87,112.4,114.82,118.69,121.75
  99. 5090 [131]127.6,126.9044,131.3,132.905,137.34,138.91,140.12,140.907,144.24,(145)
  100. 5095 [131]150.35,151.96,157.25,158.924,162.5,164.93,167.26,168.934,173.04,174.97
  101. 5100 [131]178.49,180.948,183.85,186.2,190.2,192.2,195.09,196.967,200.59,204.37
  102. 5105 [131]207.19,208.98,(209),(210),(222),(223),(226),(227),232.038,231.036,238.03
  103. 5110 [131]237.048,(244),(243),(247),(247),(251),(254),(257),(256),(254),(257)
  104. 5115 [143] OXIDATION STATES
  105. 5120 [129]XX[178]1[164]98:[135]PT$(XX,2):[130]XX
  106. 5125 [131]"+1,-1","0","+1","+2","+3","-4,+2,+4","-3,-2,-1,+1,+2,+3,+4,+5","-2","-1"
  107. 5130 [131]"0","+1","+2","+3","-4,+2,+4","-3,+3,+5","-2,+4,+6","-1,+1,+3,+5,+7","0"
  108. 5135 [131]"+1","+2","+3","+2,+3,+4","+2,+3,+4,+5","+2,+3,+6","+2,+3,+4,+7","+2,+3"
  109. 5140 [131]"+2,+3","+2,+3","+1,+2","+2","+3","-2,+2,+4","-3,+3,+5","-2,+4,+6"
  110. 5141 [131]"-1,+1,+5"
  111. 5145 [131]"0,+2","+1","+2","+3","+4","+3,+5","+3,+6","+4,+6,+7","+3","+3","+2,+4"
  112. 5147 [131]"+1","+2","+3","+2,+4","-3,+3,+5","-2,+4,+6","-1,+1,+5,+7","0,+2,+4,+6"
  113. 5150 [131]"+1","+2","+3","+3,+4","+3","+3","+3","+2,+3","+2,+3","+3","+3","+3","+3"
  114. 5153 [131]"+3","+3","+2,+3","+3"
  115. 5155 [131]"+4","+5","+6","+4,+6,+7","+3,+4","+3,+4","+2,+4","+1,+3"
  116. 5160 [131]"+1,+2","+1,+3","+2,+4","+3,+5","+2,+4",-,"0","+1","+2","+3","+4","+4,+5"
  117. 5165 [131]"+3,+4,+5,+6","+3,+4,+5,+6","+3,+4,+5,+6","+3,+4,+5,+6","+3","+3,+4","+3"
  118. 6170 [143] ELECTRON CONFIGURATIONS
  119. 6175 [129]XX[178]1[164]57:[135]PT$(XX,3):[130]XX
  120. 6180 [131]"1SON1","1SON2","1SON22SON1","1SON22SON2","1SON22SON22PON1"
  121. 6185 [131]"1SON22SON22PON2","1SON22SON22PON3","1SON22SON22PON4","1SON22SON22PON5"
  122. 6190 [131]"1SON22SON22PON6","[(null)E]3SON1","[(null)E]3SON2","[(null)E]3SON23PON1"
  123. 6195 [131]"[(null)E]3SON23PON2","[(null)E]3SON23PON3","[(null)E]3SON23PON4","[(null)E]3SON23PON5"
  124. 6200 [131]"[(null)E]3SON23PON6","[ATNR]4SON1","[ATNR]4SON2","[ATNR]3DON14SON2","[ATNR]3DON24SON2"
  125. 6205 [131]"[ATNR]3DON34SON2","[ATNR]3DON54SON1","[ATNR]3DON54SON2","[ATNR]3DON64SON2"
  126. 6210 [131]"[ATNR]3DON74SON2","[ATNR]3DON84SON2","[ATNR]3DON104SON1","[ATNR]3DON104SON2"
  127. 6215 [131]"[ATNR]3DON104SON24PON1","[ATNR]3DON104SON24PON2","[ATNR]3DON104SON24PON3"
  128. 6220 [131]"[ATNR]3DON104SON24PON4","[ATNR]3DON104SON24PON5","[ATNR]3DON104SON24PON6"
  129. 6225 [131]"[(null)R]5SON1","[(null)R]5SON2","[(null)R]4DON15SON2","[(null)R]4DON25SON2","[(null)R]4DON45SON1"
  130. 6230 [131]"[(null)R]4DON55SON1","[(null)R]4DON65SON1","[(null)R]4DON75SON1","[(null)R]4DON85SON1"
  131. 6235 [131]"[(null)R]4DON105SON0","[(null)R]4DON105SON1","[(null)R]4DON105SON2"
  132. 6240 [131]"[(null)R]4DON105SON25PON1","[(null)R]4DON105SON25PON2","[(null)R]4DON105SON25PON3"
  133. 6245 [131]"[(null)R]4DON105SON25PON4","[(null)R]4DON105SON25PON5","[(null)R]4DON105SON25PON6"
  134. 6250 [131]"[(null)E]6SON1","[(null)E]6SON2","[(null)E]5DON16SON2"
  135. 6255 [129]XX[178]72[164]89:[135]PT$(XX,3):[130]XX
  136. 6260 [131]"[(null)E]4FON145DON26SON2","[(null)E]4FON145DON36SON2","[(null)E]4FON145DON46SON2"
  137. 6265 [131]"[(null)E]4FON145DON56SON2","[(null)E]4FON145DON66SON2","[(null)E]4FON145DON76SON2"
  138. 6270 [131]"[(null)E]4FON145DON96SON1","[(null)E]4FON145DON106SON1","[(null)E]4FON145DON106SON2"
  139. 6275 [131]"[(null)E]4FON145DON106SON26PON1","[(null)E]4FON145DON106SON26PON2"
  140. 6280 [131]"[(null)E]4FON145DON106SON26PON3","[(null)E]4FON145DON106SON26PON4"
  141. 6285 [131]"[(null)E]4FON145DON106SON26PON5","[(null)E]4FON145DON106SON26PON6"
  142. 6290 [131]"[(null)N]7SON1","[(null)N]7SON2","[(null)N]6DON17SON2"
  143. 6295 [143] SET PERIOD
  144. 6300 [129]X[178]1[164]2:PT$(X,4)[178]"1":[130]X
  145. 6305 [129]X[178]3[164]10:PT$(X,4)[178]"2":[130]X
  146. 6310 [129]X[178]11[164]18:PT$(X,4)[178]"3":[130]X
  147. 6315 [129]X[178]19[164]36:PT$(X,4)[178]"4":[130]X
  148. 6320 [129]X[178]37[164]54:PT$(X,4)[178]"5":[130]X
  149. 6325 [129]X[178]55[164]57:PT$(X,4)[178]"6":[130]X
  150. 6330 [129]X[178]58[164]71:PT$(X,4)[178]"6 CMDCMD((null)ANTHANIDE (null)ERIES)ON":[130]X
  151. 6335 [129]X[178]72[164]86:PT$(X,4)[178]"6":[130]X
  152. 6340 [129]X[178]87[164]89:PT$(X,4)[178]"7":[130]X
  153. 6345 [129]X[178]90[164]103:PT$(X,4)[178]"7 CMDCMD(ATNCTINIDE (null)ERIES)ON":[130]X
  154. 6350 [143] SET GROUP
  155. 6355 [129]XX[178]1[164]57:[135]PT$(XX,5):[130]XX
  156. 6360 [131]"1 (RIGHT$ATN)","18 ((null))"
  157. 6365 [131]"1 (RIGHT$ATN)","2 (RIGHT$RIGHT$ATN)","13 (RIGHT$RIGHT$RIGHT$ATN)","14 (RIGHT$(null)ATN)","15 ((null)ATN)"
  158. 6370 [131]"16 ((null)RIGHT$ATN)","17 ((null)RIGHT$RIGHT$ATN)","18 ((null))"
  159. 6375 [131]"1 (RIGHT$ATN)","2 (RIGHT$RIGHT$ATN)","13 (RIGHT$RIGHT$RIGHT$ATN)","14 (RIGHT$(null)ATN)","15 ((null)ATN)"
  160. 6380 [131]"16 ((null)RIGHT$ATN)","17 ((null)RIGHT$RIGHT$ATN)","18 ((null))"
  161. 6385 [131]"1 (RIGHT$ATN)","2 (RIGHT$RIGHT$ATN)","3 (RIGHT$RIGHT$RIGHT$PEEK)","4 (RIGHT$(null)PEEK)","5 ((null)PEEK)","6 ((null)RIGHT$PEEK)","7CLOSE((null)RIGHT$RIGHT$PEEK)"
  162. 6390 [131]"8 ((null)RIGHT$RIGHT$RIGHT$)","9 ((null)RIGHT$RIGHT$RIGHT$)","10 ((null)RIGHT$RIGHT$RIGHT$)","11 (RIGHT$PEEK)","12 (RIGHT$RIGHT$PEEK)","13 (RIGHT$RIGHT$RIGHT$ATN)"
  163. 6395 [131]"14 (RIGHT$(null)ATN)","15 ((null)ATN)","16 ((null)RIGHT$ATN)",17 ()","18 ()"
  164. 6400 DATA"1 ([201][193])","2 ([201][201][193])","3 ([201][201][201][194])","4 ([201][214][194])","5 ([214][194])","6 ([214][201][194])","7[160]([214][201][201][194])"
  165. 6405 DATA"8 ([214][201][201][201])","9 ([214][201][201][201])","10 ([214][201][201][201])","11 ([201][194])","12 ([201][201][194])","13 ([201][201][201][193])"
  166. 6410 DATA"14 ([201][214][193])","15 ([214][193])","16 ([214][201][193])",17 ()","18 ()"
  167. 6415 [131]"1 (RIGHT$ATN)","2 (RIGHT$RIGHT$ATN)","3 (RIGHT$RIGHT$RIGHT$PEEK)","4 (RIGHT$(null)PEEK)","5 ((null)PEEK)","6 ((null)RIGHT$PEEK)","7CLOSE((null)RIGHT$RIGHT$PEEK)"
  168. 6420 [131]"8 ((null)RIGHT$RIGHT$RIGHT$)","9 ((null)RIGHT$RIGHT$RIGHT$)","10 ((null)RIGHT$RIGHT$RIGHT$)","11 (RIGHT$PEEK)","12 (RIGHT$RIGHT$PEEK)","13 (RIGHT$RIGHT$RIGHT$ATN)"
  169. 6425 [131]"14 (RIGHT$(null)ATN)","15 ((null)ATN)","16 ((null)RIGHT$ATN)","17 ((null)RIGHT$RIGHT$ATN)","18 ((null))"
  170. 6430 [131]"1 (RIGHT$ATN)","2 (RIGHT$RIGHT$ATN)","3 (RIGHT$RIGHT$RIGHT$PEEK)"
  171. 6435 [129]XX[178]72[164]89:[135]PT$(XX,5):[130]XX
  172. 6440 [143] SET 1ST [201]ONIZATION [197]NERGY &             [197]LECTRONEGATIVITY
  173. 6445 [129]XX[178]1[164]20:[135]PT$(XX,6),PT$(XX,7):[130]XX
  174. 6450 [131]313,2.2,567,-,125,1.0,215,1.5,191,2.0,260,2.6,336,3.1,314,3.5,402,4.0,497
  175. 6455 [131]-,119,0.9,176,1.2,138,1.5,188,1.9,242,2.2,239,2.6,300,3.2,363,-,100,0.8
  176. 6460 [131]141,1.0
  177. 6465 [129]XX[178]31[164]38:[135]PT$(XX,6),PT$(XX,7):[130]XX
  178. 6470 [131]138,1.6,182,1.9,226,2.0,225,2.5,273,2.9,323,-,96,0.8,131,1.0
  179. 6475 [129]XX[178]49[164]56:[135]PT$(XX,6),PT$(XX,7):[130]XX
  180. 6480 [131]133,1.7,169,1.8,199,2.1,208,2.3,241,2.7,280,-,90,0.7,120,0.9
  181. 6485 [129]XX[178]81[164]88:[135]PT$(XX,6),PT$(XX,7):[130]XX
  182. 6490 [131]141,1.8,171,1.8,168,1.9,194,2.0,-,2.2,248,-,-,0.7,122,0.9
  183. 6500 [143] SET COVALENT ATOMIC RADIUS
  184. 6505 PT$(1,8)[178]"0.37"
  185. 6510 [129]XX[178]3[164]42:[135]PT$(XX,8):[130]XX
  186. 6515 [131]1.23,0.89,0.88,0.77,0.70,0.66,0.64,1.31,1.57,1.36,1.25,1.17,1.10,1.04,0.99
  187. 6520 [131]1.74,2.03,1.74,1.44,1.32,1.22,1.17,1.17,1.17,1.16,1.15,1.17,1.25,1.25,1.22
  188. 6525 [131]1.21,1.17,1.14,1.89,2.16,1.92,1.62,1.45,1.34,1.29
  189. 6530 [129]XX[178]44[164]60:[135]PT$(XX,8):[130]XX
  190. 6535 [131]1.24,1.25,1.28,1.34,1.41,1.50,1.40,1.41,1.37,1.33,2.09,2.35,1.98,1.69,1.65
  191. 6540 [131]1.65,1.64
  192. 6545 [129]XX[178]62[164]84:[135]PT$(XX,8):[130]XX
  193. 6550 [131]1.66,1.85,1.61,1.59,1.59,1.58,1.57,1.56,1.70,1.56,1.44,1.34,1.30,1.28,1.26
  194. 6555 [131]1.26,1.29,1.34,1.44,1.55,1.54,1.52,1.53
  195. 6560 PT$(86,8)[178]"2.14"
  196. 6565 [143] SET ATOMIC RADIUS IN METALS
  197. 6570 [129]XX[178]3[164]95:[135]PT$(XX,9):[130]XX
  198. 6575 [131]1.52,1.13,0.83,-,0.55,0.60,0.72,-,1.54,1.60,1.43,-,1.08,0.94,-,-,2.27
  199. 6580 [131]1.97,1.61,1.45,1.32,1.25,1.24,1.24,1.25,1.25,1.28,1.33,1.22,1.23,1.25,-
  200. 6585 [131]-,-,2.48,2.15,1.81,1.60,1.43,1.36,1.36,1.33,1.35,1.38,1.44,1.49,1.63,1.41
  201. 6590 [131]-,1.33,-,2.18,2.65,2.17,1.88,1.83,1.83,1.82,1.81,1.80,2.04,1.80,1.78,1.77
  202. 6593 [131]1.77
  203. 6595 [131]1.76,1.75,1.94,1.73,1.56,1.43,1.37,1.37,1.34,1.36,1.38,1.44,1.60,1.70,1.75
  204. 6600 [131]1.55,1.67,-,-,2.7,2.20,1.88,1.80,1.61,1.39,1.31,1.51,1.84
  205. 6605 [143] SET VAN DER WAALS RADIUS
  206. 6610 [129]XX[178]1[164]19:[135]PT$(XX,10):[130]XX
  207. 6615 [131]1.2,1.22,-,-,2.08,1.85,1.54,1.40,1.35,1.60,2.31,-,-,2.0,1.90,1.85,1.81
  208. 6620 [131]1.91,2.31
  209. 6625 [129]XX[178]33[164]37:[135]PT$(XX,10):[130]XX
  210. 6630 [131]2.0,2.0,1.95,1.98,2.44
  211. 6635 [129]XX[178]51[164]55:[135]PT$(XX,10):[130]XX
  212. 6640 [131]2.2,2.20,2.15,-,2.62
  213. 6645 [151]53265,[194](53265)[176]16:[151]56325,46
  214. 6650 [142]
  215. 9000 [153]"ASCIRST LETTER MUST BE A CAPITAL!":[129]ZQ[178]1[164]2000:[130]ZQ:[137] 4000
  216. 9005 [153]"(null)ECOND LETTER MUST BE A LOWER-CASE!":[129]ZQ[178]1[164]2000:[130]ZQ:[137]4000
  217. 10000 [143] QUIT
  218. 10005 [153]"LOADCONTOKAY!"[199](9)[199](142)
  219. 10010 [151]53280,14:[151]53281,6
  220. 10015 [156]:[128]
  221. 20000 [143] PERIODIC TABLE INFORMER
  222. 20010 [143]    UPLOADED TO QLINK
  223. 20020 [143]         9/15/90
  224. 20030 [143]     BY COLONELTOM
  225. 20035 [143]
  226. 20040 [143] ALL INFORMATION INCLUDED IN
  227. 20050 [143]   THIS PROGRAM WAS TAKEN
  228. 20060 [143]           FROM
  229. 20070 [143]   REFERENCE TABLES FOR
  230. 20080 [143]         CHEMISTRY
  231. 20090 [143]       PUBLISHED BY
  232. 20100 [143] THE NEW YORK STATE DEPARTMENT
  233. 20110 [143]       OF EDUCATION
  234.